home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_20_1987_Transactor_Publishing.d64 / select on boot (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  896b  |  28 lines
  1. 100 rem* select on boot
  2. 110 rem* fix for pg. 447 of c128 prg. guide
  3. 120 rem* track 1 sector 0 must not be allocated
  4. 140 for i=1 to 100
  5. 150 read byt: cs=cs+byt: w$=w$+chr$(byt)
  6. 160 next
  7. 170 if cs<>6965 then print "data error": end
  8. 180 open 15,8,15,"i0"
  9. 190 open 8,8,8,"#"
  10. 200 print#15,"b-p";8;0
  11. 210 print#8,w$
  12. 220 print#15,"u2";8;0;1;0
  13. 230 print#15,"b-a";0;1;0
  14. 240 print ds$: close 8: close 15
  15. 250 data  67,  66,  77,   0,   0,   0,   0,   0
  16. 260 data   0,  32, 125, 255,  13,  83,  69,  76
  17. 270 data  69,  67,  84,  32,  77,  79,  68,  69
  18. 280 data  58,  13,  13,  32,  49,  46,  32,  67
  19. 290 data  54,  52,  32,  32,  66,  65,  83,  73
  20. 300 data  67,  13,  32,  50,  46,  32,  67,  49
  21. 310 data  50,  56,  32,  66,  65,  83,  73,  67
  22. 320 data  13,  32,  51,  46,  32,  67,  49,  50
  23. 330 data  56,  32,  77,  79,  78,  73,  84,  79
  24. 340 data  82,  13,  13,   0,  32, 228, 255, 201
  25. 350 data  49, 208,   3,  76,  77, 255, 201,  50
  26. 360 data 208,   3,  76,   3,  64, 201,  51, 208
  27. 370 data 235,  76,   0, 176
  28.